OPEN "r", #1, "diska", 1
OPEN "o", #2, "ram:out"

FIELD #1, 1 AS A$

 10 GET #1
  IF EOF(1) THEN CLOSE 2 : STOP
  PRINT #2, A$;
  x = x+1
  IF x > 75 THEN PRINT #2, "" : x = 0
  GOTO 10